home *** CD-ROM | disk | FTP | other *** search
/ The National Palace Museum Experience / The National Palace Museum Experience.iso / Programs / Guide.dxr / 00247.ls < prev    next >
Encoding:
Text File  |  1998-11-19  |  2.7 KB  |  90 lines
  1. global sbcontentsprite, gtransitionspeed, gnumviews, newview, pagedown, pageup, objectpict, lightsprite, ossprite
  2.  
  3. on enterFrame
  4.   global roomname, sideboard, roomnumber, objmarker, objectpict, gbarsprite, gslidersprite
  5.   if gnumviews > 1 then
  6.     set mouseposition to point(the mouseH, the mouseV)
  7.     if the mouseH < (the right of sprite sideboard - 60) then
  8.       if (the mouseV > the bottom of sprite sbcontentsprite) and (the mouseV < (the bottom of sprite sideboard - 20)) then
  9.         if newview < gnumviews then
  10.           turndown()
  11.           einstallcontrolsideboard()
  12.         else
  13.           cursor(-1)
  14.         end if
  15.       else
  16.         if the mouseV < the top of sprite sbcontentsprite then
  17.           if newview > 1 then
  18.             turnup()
  19.             einstallcontrolsideboard()
  20.           else
  21.             cursor(-1)
  22.           end if
  23.         else
  24.           cursor(-1)
  25.         end if
  26.       end if
  27.     end if
  28.   end if
  29.   if not rollOver(sideboard) then
  30.     cursor(-1)
  31.     puppetSprite(sbcontentsprite, 0)
  32.     puppetSprite(objectpict, 0)
  33.     set the visible of sprite objmarker to 0
  34.     set the visible of sprite ossprite to 1
  35.     if the right of sprite gslidersprite <> (the right of sprite gbarsprite - 1) then
  36.       set the movieRate of sprite ossprite to 1
  37.     end if
  38.     updateStage()
  39.     go(the frame - 2)
  40.   end if
  41. end
  42.  
  43. on exitFrame
  44.   go(the frame)
  45. end
  46.  
  47. on idle
  48.   checksbrollover(#up)
  49. end
  50.  
  51. on turnup
  52.   set arrowcursor to the number of member "up"
  53.   set arrowcursormask to the number of member "upMask"
  54.   cursor([arrowcursor, arrowcursormask])
  55.   set the visible of sprite objectpict to 0
  56.   set the visible of sprite lightsprite to 0
  57.   set currentview to value(word 2 of the name of member the memberNum of sprite sbcontentsprite of castLib "Guide")
  58.   if currentview = 1 then
  59.     exit
  60.   else
  61.     set newview to currentview - 1
  62.   end if
  63.   set newviewcast to "E-HSList" && newview
  64.   set the member of sprite sbcontentsprite to member newviewcast
  65.   puppetTransition(13, gtransitionspeed, 0, 1)
  66.   updateStage()
  67.   set pageup to 1
  68.   set pagedown to 0
  69. end
  70.  
  71. on turndown
  72.   set arrowcursor to the number of member "down"
  73.   set arrowcursormask to the number of member "downMask"
  74.   cursor([arrowcursor, arrowcursormask])
  75.   set the visible of sprite objectpict to 0
  76.   set the visible of sprite lightsprite to 0
  77.   set currentview to value(word 2 of the name of member the memberNum of sprite sbcontentsprite of castLib "Guide")
  78.   if currentview = gnumviews then
  79.     exit
  80.   else
  81.     set newview to currentview + 1
  82.   end if
  83.   set newviewcast to "E-HSList" && newview
  84.   set the member of sprite sbcontentsprite to member newviewcast
  85.   puppetTransition(14, gtransitionspeed, 0, 1)
  86.   updateStage()
  87.   set pagedown to 1
  88.   set pageup to 0
  89. end
  90.